﻿Public Class Proionta
    Private idEt As String

    Private Sub ProiontaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProiontaBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ProiontaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.PanalogDataSet)

    End Sub

    Private Sub Proionta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PanalogDataSet.Proionta' table. You can move, or remove it, as needed.
        Me.ProiontaTableAdapter.FillProionta(Me.PanalogDataSet.Proionta, idEt)

    End Sub

    Public Sub gemisma(ByRef id)
        idEt = id
    End Sub

    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
        If Not (My.Computer.Keyboard.NumLock) And My.Computer.Keyboard.CapsLock Then
            MsgBox("Προσοχή το Num Lock είναι απενεργοποιημένο και το Caps Lock ενεργοποιημένο.")
        ElseIf Not My.Computer.Keyboard.NumLock Then
            MsgBox("Προσοχή το Num Lock είναι απενεργοποιημένο.")
        ElseIf My.Computer.Keyboard.CapsLock Then
            MsgBox("Προσοχή το Caps Lock είναι ενεργοποιημένο.")
        End If
    End Sub
End Class